home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #48 (Sep 89) / Data Editor Source / StorMF.inc < prev    next >
Text File  |  1988-07-11  |  8KB  |  215 lines
  1. C MACRO COMMAND PARAMETER LIST
  2.       integer*4 OpnAlt,OpnDlg
  3.     parameter (OpnAlt = 3)
  4.     parameter (OpnDlg = 4)
  5.     integer*4 DoEvnt
  6.     parameter (DoEvnt = 100)
  7.     integer*4 OpnFil,StdOpn,SavFil,StdSav,AppFil,SetDir,SetTyp
  8.     parameter (OpnFil = 201)
  9.     parameter (StdOpn = -201)
  10.     parameter (SavFil = 202)
  11.     parameter (StdSav = -202)
  12.     parameter (AppFil = 203)
  13.     parameter (SetDir = 209)
  14.     parameter (SetTyp = -209)
  15.     integer*4 RetTxt,RetCtl,DoTran,DoQuit
  16.     parameter (RetTxt = 206)
  17.     parameter (RetCtl = -206)
  18.     parameter (DoTran = 207)
  19.     parameter (DoQuit = 208)
  20.     integer*4 MovIns,TabFrm,ShoSel,ClrSel,FixGrf,SelAll
  21.     integer*4 DesAll,ExpTab,ComPic,SelFrm,NewPic,NewBit
  22.     integer*4 ShoOff,RotLft,RotRit
  23.     parameter (MovIns = 302)
  24.     parameter (TabFrm = 302)
  25.     parameter (ShoSel = -302)
  26.     parameter (ClrSel = 306)
  27.     parameter (FixGrf = -306)
  28.     parameter (SelAll = 308)
  29.     parameter (DesAll = -308)
  30.     parameter (ExpTab = 310)
  31.     parameter (ComPic = -310)
  32.     parameter (SelFrm = 311)
  33.     parameter (NewPic = 314)
  34.     parameter (NewBit = 315)
  35.     parameter (ShoOff = 321)
  36.     parameter (RotLft = 331)
  37.     parameter (RotRit = 332)
  38.     integer*4 ShoFul,ShoGrf,HidGrf,ShoEd1,HidEd1,ShoEd2,HidEd2
  39.     integer*4 ShoEd3,HidEd3,ShoEd4,HidEd4,ShoSh1,HidSh1,ShoSh2
  40.     integer*4 HidSh2,ShoSh3,HidSh3,ShoSh4,HidSh4,ShoAll,HidAll
  41.     parameter (ShoFul = 400)
  42.     parameter (ShoGrf = 401)
  43.     parameter (HidGrf = -401)
  44.     parameter (ShoEd1 = 402)
  45.     parameter (HidEd1 = -402)
  46.     parameter (ShoEd2 = 403)
  47.     parameter (HidEd2 = -403)
  48.     parameter (ShoEd3 = 404)
  49.     parameter (HidEd3 = -404)
  50.     parameter (ShoEd4 = 405)
  51.     parameter (HidEd4 = -405)
  52.     parameter (ShoSh1 = 406)
  53.     parameter (HidSh1 = -406)
  54.     parameter (ShoSh2 = 407)
  55.     parameter (HidSh2 = -407)
  56.     parameter (ShoSh3 = 408)
  57.     parameter (HidSh3 = -408)
  58.     parameter (ShoSh4 = 409)
  59.     parameter (HidSh4 = -409)    
  60.     parameter (ShoAll = 410)
  61.     parameter (HidAll = -410)
  62.     integer*4 GrfTxt,GrfFnt,GrfCol
  63.     parameter (GrfTxt = 417)
  64.     parameter (GrfFnt = 418)
  65.     parameter (GrfCol = 419)
  66.     integer*4 SetSh1,SetSh2,SetSh3,SetSh4,MovSh1,MovSh2
  67.     integer*4 MovSh3,MovSh4,FixSh1,FixSh2,FixSh3,FixSh4
  68.     parameter (SetSh1 = 461)
  69.     parameter (SetSh2 = 462)
  70.     parameter (SetSh3 = 463)
  71.     parameter (SetSh4 = 464)
  72.     parameter (MovSh1 = 471)
  73.     parameter (MovSh2 = 472)
  74.     parameter (MovSh3 = 473)
  75.     parameter (MovSh4 = 474)
  76.     parameter (FixSh1 = 481)
  77.     parameter (FixSh2 = 482)
  78.     parameter (FixSh3 = 483)
  79.     parameter (FixSh4 = 484)
  80.     integer*4 GetStr,SetStr
  81.     parameter (GetStr = 491)
  82.     parameter (SetStr = 492)
  83.     integer*4 I4ToS,I2ToS,R10ToS,R8ToS,R4ToS
  84.     parameter (I4ToS = 493)
  85.     parameter (I2ToS = 494)
  86.     parameter (R10ToS = 495)
  87.     parameter (R8ToS = 496)
  88.     parameter (R4ToS = 497)
  89.     integer*4 Real2S,S2Real
  90.     parameter (Real2S = 497)
  91.     parameter (S2Real = 498)
  92.     integer*4 NewBlk
  93.     parameter (NewBlk = 499)
  94.  
  95. C 2K OF MEMORY SHARED WITH FACEIT
  96.       logical*4 frameflag,viewflag,sizeflag,dragflag
  97.     logical*4 errflag,WNEflag
  98.       character*4 creator,ftype1,ftype2
  99.     character*8 prcheck
  100.       character*256 MAC,name
  101.       integer*2 screenrect(4),origin(2),oldframe(4),event(8)
  102.       integer*2 frame(4),dialog(100),tabsize(5),fontsize(4)
  103.     integer*2 facepen(21),listID(20),fixrect(4),I2
  104.     integer*2 selrect1(4),selrect2(4),selrect3(4),selrect4(4)
  105.       integer*4 toppict,selpict,pictinfo,windptr(10),menuhdl(99)
  106.       integer*4 texthdl(5),ctlhdl(10),viewhdl,r,w,wmax,pictlimit
  107.       integer*4 textlimit,vref,nextvref,applvref,dialptr,filefix
  108.       integer*4 printhdl,textstat,graphstat,miscinfo,scratch,smax
  109.       integer*4 findhdl,cps,lpp,cpl,pagenum(2),quitstat,returnstat
  110.       integer*4 pagesize(2),headhdl,dataptr,wio,arrayptr(4)
  111.       integer*4 picrecord,bitrecord,FACEhdl,macro(5),grafpats(4)
  112.     integer*4 menuID,menuitem,SMFstat,facesleep,editargs(10)
  113.     integer*4 grozonptr,memstat,wordchar(8),offscrnptr,heapbuff
  114.     integer*4 FACEptr(20),curstat,editflags(5),I4,infosize
  115.       real*4 scale(2),slope(10),intercept(10),R4
  116.     real*8 R8
  117.  
  118.       integer*4 storage(512)
  119.       common/macstuff/storage
  120.  
  121. C STRUCTURES, PROCEDURES, AND PARAMETERS
  122.       equivalence (storage(1),toppict)
  123.       equivalence (storage(2),selpict)
  124.       equivalence (storage(3),pictinfo)
  125.       equivalence (storage(4),windptr(1))
  126.     equivalence (storage(14),offscrnptr)
  127.       equivalence (storage(34),texthdl(1))
  128.       equivalence (storage(39),ctlhdl(1))
  129.       equivalence (storage(49),wio)
  130.       equivalence (storage(50),macro(1))
  131.     equivalence (storage(55),menuhdl(1))
  132.     equivalence (storage(154),facepen(1))
  133.     equivalence (storage(165),infosize)
  134.     equivalence (storage(166),I4)
  135.     equivalence (storage(167),I2)
  136.     equivalence (storage(170),R8)
  137.     equivalence (storage(172),R4)
  138.     equivalence (storage(173),fixrect(1))
  139.     equivalence (storage(175),selrect1(1))
  140.     equivalence (storage(177),selrect2(1))
  141.     equivalence (storage(179),selrect3(1))
  142.     equivalence (storage(181),selrect4(1))
  143.     equivalence (storage(183),curstat)
  144.     equivalence (storage(184),arrayptr(1))
  145.     equivalence (storage(188),FACEptr(1))
  146.     equivalence (storage(208),grafpats(1))
  147.     equivalence (storage(212),heapbuff)
  148.     equivalence (storage(213),wordchar(1))
  149.     equivalence (storage(221),memstat)
  150.     equivalence (storage(222),grozonptr)
  151.     equivalence (storage(223),editargs(1))
  152.     equivalence (storage(233),facesleep)
  153.     equivalence (storage(234),event(1))
  154.       equivalence (storage(238),screenrect(1))
  155.       equivalence (storage(240),viewhdl)
  156.       equivalence (storage(241),r)
  157.       equivalence (storage(242),frameflag)
  158.       equivalence (storage(243),w)
  159.       equivalence (storage(244),wmax)
  160.       equivalence (storage(245),picrecord)
  161.       equivalence (storage(246),bitrecord)
  162.       equivalence (storage(247),pictlimit)
  163.       equivalence (storage(248),textlimit)
  164.       equivalence (storage(249),vref)
  165.       equivalence (storage(250),nextvref)
  166.       equivalence (storage(251),applvref)
  167.       equivalence (storage(252),creator)
  168.       equivalence (storage(253),ftype1)
  169.       equivalence (storage(254),ftype2)
  170.       equivalence (storage(255),dialptr)
  171.       equivalence (storage(256),filefix)
  172.       equivalence (storage(257),printhdl)
  173.       equivalence (storage(258),textstat)
  174.       equivalence (storage(259),graphstat)
  175.       equivalence (storage(260),miscinfo)
  176.     equivalence (storage(261),FACEhdl)
  177.       equivalence (storage(262),scratch)
  178.       equivalence (storage(263),findhdl)
  179.       equivalence (storage(264),oldframe(1))
  180.       equivalence (storage(266),quitstat)
  181.       equivalence (storage(267),returnstat)
  182.       equivalence (storage(268),smax)
  183.     equivalence (storage(269),WNEflag)
  184.     equivalence (storage(270),SMFstat)
  185.  
  186. C USER-ADJUSTABLE VARIABLES
  187.       equivalence (storage(271),tabsize(1))
  188.       equivalence (storage(274),fontsize(1))
  189.       equivalence (storage(276),editflags(1))
  190.       equivalence (storage(281),cps)
  191.       equivalence (storage(282),lpp)
  192.       equivalence (storage(283),cpl)
  193.       equivalence (storage(284),prcheck)
  194.       equivalence (storage(286),pagenum(1))
  195.       equivalence (storage(288),pagesize(1))
  196.       equivalence (storage(291),origin(1))
  197.       equivalence (storage(292),scale(1))
  198.       equivalence (storage(294),viewflag)
  199.       equivalence (storage(295),sizeflag)
  200.       equivalence (storage(296),dragflag)
  201.       equivalence (storage(297),headhdl)
  202.  
  203. C COMMUNICATIONS VARIABLES
  204.       equivalence (storage(299),menuID)
  205.       equivalence (storage(300),menuitem)
  206.       equivalence (storage(301),dataptr)
  207.       equivalence (storage(302),listID(1))
  208.       equivalence (storage(312),slope(1))
  209.       equivalence (storage(322),intercept(1))
  210.       equivalence (storage(332),frame(1))
  211.       equivalence (storage(334),dialog(1))
  212.       equivalence (storage(384),errflag)
  213.       equivalence (storage(385),MAC)
  214.       equivalence (storage(449),name)
  215.